10 REM  THIS OPERATION PRODUCES THE
20 REM INTEGER REMAINDER OF AN INTEGER
30 REM DIVISION.
40 PRINT:INPUT"A MOD B (ENTER A,B)";A,B:B=ABS(B):C=INT(A/B):D=C*B:E=A-D
50 PRINT:PRINTA;"MOD";B;"=";E